Plastic Waste 2023 analisis
plastic <- read.csv("Plastic Waste Around the World.csv", stringsAsFactors = TRUE)$$ \ H_0: \
\
$$
library(ggplot2)
library(plotly)
library(car)
interact <- lm(Total_Plastic_Waste_MT ~ Per_Capita_Waste_KG *
Recycling_Rate *
Main_Sources *
Coastal_Waste_Risk,
data = plastic)
summary(interact)
Call:
lm(formula = Total_Plastic_Waste_MT ~ Per_Capita_Waste_KG * Recycling_Rate *
Main_Sources * Coastal_Waste_Risk, data = plastic)
Residuals:
Min 1Q Median 3Q Max
-1.0649 -0.2998 -0.0228 0.1071 4.7577
Coefficients: (122 not defined because of singularities)
Estimate Std. Error t value Pr(>|t|)
(Intercept) 3.656e+02 7.683e+00 47.579 < 2e-16 ***
Per_Capita_Waste_KG 1.331e+00 1.199e-01 11.095 < 2e-16 ***
Recycling_Rate -7.392e+00 1.795e-01 -41.179 < 2e-16 ***
Main_SourcesConsumer_Goods -2.799e+02 6.478e+00 -43.216 < 2e-16 ***
Main_SourcesConsumer_Packaging -3.652e+02 7.662e+00 -47.672 < 2e-16 ***
Main_SourcesElectronics_Packaging -1.877e-01 1.540e+00 -0.122 0.90321
Main_SourcesFood_Packaging -3.618e+02 7.973e+00 -45.378 < 2e-16 ***
Main_SourcesIndustrial_Consumer -3.596e+02 7.747e+00 -46.410 < 2e-16 ***
Main_SourcesIndustrial_Packaging -3.649e+02 8.474e+00 -43.061 < 2e-16 ***
Main_SourcesPackaging_Consumer -3.201e+02 1.111e+01 -28.797 < 2e-16 ***
Main_SourcesPackaging_Electronics 1.869e+02 5.512e+00 33.903 < 2e-16 ***
Main_SourcesPackaging_Industrial -1.412e+02 4.020e+00 -35.115 < 2e-16 ***
Coastal_Waste_RiskLow -4.355e+01 1.477e+00 -29.495 < 2e-16 ***
Coastal_Waste_RiskMedium 8.618e-01 2.824e-01 3.051 0.00278 **
Coastal_Waste_RiskVery_High -4.509e-01 7.433e-01 -0.607 0.54524
Per_Capita_Waste_KG:Recycling_Rate 1.030e-04 1.893e-03 0.054 0.95669
Per_Capita_Waste_KG:Main_SourcesConsumer_Goods NA NA NA NA
Per_Capita_Waste_KG:Main_SourcesConsumer_Packaging -1.330e+00 1.199e-01 -11.092 < 2e-16 ***
Per_Capita_Waste_KG:Main_SourcesElectronics_Packaging NA NA NA NA
Per_Capita_Waste_KG:Main_SourcesFood_Packaging 9.057e-01 5.425e-01 1.669 0.09750 .
Per_Capita_Waste_KG:Main_SourcesIndustrial_Consumer -1.327e+00 1.098e-01 -12.086 < 2e-16 ***
Per_Capita_Waste_KG:Main_SourcesIndustrial_Packaging -1.336e+00 1.202e-01 -11.114 < 2e-16 ***
Per_Capita_Waste_KG:Main_SourcesPackaging_Consumer -1.372e+00 5.151e-02 -26.634 < 2e-16 ***
Per_Capita_Waste_KG:Main_SourcesPackaging_Electronics NA NA NA NA
Per_Capita_Waste_KG:Main_SourcesPackaging_Industrial NA NA NA NA
Recycling_Rate:Main_SourcesConsumer_Goods NA NA NA NA
Recycling_Rate:Main_SourcesConsumer_Packaging 7.462e+00 1.714e-01 43.545 < 2e-16 ***
Recycling_Rate:Main_SourcesElectronics_Packaging NA NA NA NA
Recycling_Rate:Main_SourcesFood_Packaging 3.567e+00 9.616e-01 3.709 0.00031 ***
Recycling_Rate:Main_SourcesIndustrial_Consumer 7.222e+00 2.271e-01 31.800 < 2e-16 ***
Recycling_Rate:Main_SourcesIndustrial_Packaging 7.459e+00 1.814e-01 41.121 < 2e-16 ***
Recycling_Rate:Main_SourcesPackaging_Consumer 7.430e+00 2.531e-01 29.355 < 2e-16 ***
Recycling_Rate:Main_SourcesPackaging_Electronics NA NA NA NA
Recycling_Rate:Main_SourcesPackaging_Industrial NA NA NA NA
Per_Capita_Waste_KG:Coastal_Waste_RiskLow 2.674e-03 4.301e-03 0.622 0.53516
Per_Capita_Waste_KG:Coastal_Waste_RiskMedium -2.459e-04 1.147e-03 -0.214 0.83060
Per_Capita_Waste_KG:Coastal_Waste_RiskVery_High NA NA NA NA
Recycling_Rate:Coastal_Waste_RiskLow -6.042e-02 3.426e-02 -1.764 0.08019 .
Recycling_Rate:Coastal_Waste_RiskMedium -5.109e-02 2.750e-02 -1.858 0.06552 .
Recycling_Rate:Coastal_Waste_RiskVery_High NA NA NA NA
Main_SourcesConsumer_Goods:Coastal_Waste_RiskLow NA NA NA NA
Main_SourcesConsumer_Packaging:Coastal_Waste_RiskLow 4.336e+01 1.443e+00 30.054 < 2e-16 ***
Main_SourcesElectronics_Packaging:Coastal_Waste_RiskLow NA NA NA NA
Main_SourcesFood_Packaging:Coastal_Waste_RiskLow NA NA NA NA
Main_SourcesIndustrial_Consumer:Coastal_Waste_RiskLow 3.928e+01 2.058e+00 19.088 < 2e-16 ***
Main_SourcesIndustrial_Packaging:Coastal_Waste_RiskLow 4.417e+01 1.754e+00 25.182 < 2e-16 ***
Main_SourcesPackaging_Consumer:Coastal_Waste_RiskLow 5.729e+00 1.802e+00 3.179 0.00186 **
Main_SourcesPackaging_Electronics:Coastal_Waste_RiskLow NA NA NA NA
Main_SourcesPackaging_Industrial:Coastal_Waste_RiskLow NA NA NA NA
Main_SourcesConsumer_Goods:Coastal_Waste_RiskMedium NA NA NA NA
Main_SourcesConsumer_Packaging:Coastal_Waste_RiskMedium NA NA NA NA
Main_SourcesElectronics_Packaging:Coastal_Waste_RiskMedium NA NA NA NA
Main_SourcesFood_Packaging:Coastal_Waste_RiskMedium NA NA NA NA
Main_SourcesIndustrial_Consumer:Coastal_Waste_RiskMedium NA NA NA NA
Main_SourcesIndustrial_Packaging:Coastal_Waste_RiskMedium NA NA NA NA
Main_SourcesPackaging_Consumer:Coastal_Waste_RiskMedium NA NA NA NA
Main_SourcesPackaging_Electronics:Coastal_Waste_RiskMedium NA NA NA NA
Main_SourcesPackaging_Industrial:Coastal_Waste_RiskMedium NA NA NA NA
Main_SourcesConsumer_Goods:Coastal_Waste_RiskVery_High NA NA NA NA
Main_SourcesConsumer_Packaging:Coastal_Waste_RiskVery_High NA NA NA NA
Main_SourcesElectronics_Packaging:Coastal_Waste_RiskVery_High NA NA NA NA
Main_SourcesFood_Packaging:Coastal_Waste_RiskVery_High NA NA NA NA
Main_SourcesIndustrial_Consumer:Coastal_Waste_RiskVery_High NA NA NA NA
Main_SourcesIndustrial_Packaging:Coastal_Waste_RiskVery_High NA NA NA NA
Main_SourcesPackaging_Consumer:Coastal_Waste_RiskVery_High NA NA NA NA
Main_SourcesPackaging_Electronics:Coastal_Waste_RiskVery_High NA NA NA NA
Main_SourcesPackaging_Industrial:Coastal_Waste_RiskVery_High NA NA NA NA
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesConsumer_Goods NA NA NA NA
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesConsumer_Packaging -4.148e-04 1.886e-03 -0.220 0.82630
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesElectronics_Packaging NA NA NA NA
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesFood_Packaging NA NA NA NA
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesIndustrial_Consumer NA NA NA NA
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesIndustrial_Packaging -3.324e-04 1.891e-03 -0.176 0.86071
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesPackaging_Consumer NA NA NA NA
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesPackaging_Electronics NA NA NA NA
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesPackaging_Industrial NA NA NA NA
Per_Capita_Waste_KG:Recycling_Rate:Coastal_Waste_RiskLow 2.583e-04 1.683e-04 1.535 0.12719
Per_Capita_Waste_KG:Recycling_Rate:Coastal_Waste_RiskMedium 2.265e-04 1.782e-04 1.271 0.20606
Per_Capita_Waste_KG:Recycling_Rate:Coastal_Waste_RiskVery_High NA NA NA NA
Per_Capita_Waste_KG:Main_SourcesConsumer_Goods:Coastal_Waste_RiskLow NA NA NA NA
Per_Capita_Waste_KG:Main_SourcesConsumer_Packaging:Coastal_Waste_RiskLow NA NA NA NA
Per_Capita_Waste_KG:Main_SourcesElectronics_Packaging:Coastal_Waste_RiskLow NA NA NA NA
Per_Capita_Waste_KG:Main_SourcesFood_Packaging:Coastal_Waste_RiskLow NA NA NA NA
Per_Capita_Waste_KG:Main_SourcesIndustrial_Consumer:Coastal_Waste_RiskLow NA NA NA NA
Per_Capita_Waste_KG:Main_SourcesIndustrial_Packaging:Coastal_Waste_RiskLow NA NA NA NA
Per_Capita_Waste_KG:Main_SourcesPackaging_Consumer:Coastal_Waste_RiskLow NA NA NA NA
Per_Capita_Waste_KG:Main_SourcesPackaging_Electronics:Coastal_Waste_RiskLow NA NA NA NA
Per_Capita_Waste_KG:Main_SourcesPackaging_Industrial:Coastal_Waste_RiskLow NA NA NA NA
Per_Capita_Waste_KG:Main_SourcesConsumer_Goods:Coastal_Waste_RiskMedium NA NA NA NA
Per_Capita_Waste_KG:Main_SourcesConsumer_Packaging:Coastal_Waste_RiskMedium NA NA NA NA
Per_Capita_Waste_KG:Main_SourcesElectronics_Packaging:Coastal_Waste_RiskMedium NA NA NA NA
Per_Capita_Waste_KG:Main_SourcesFood_Packaging:Coastal_Waste_RiskMedium NA NA NA NA
Per_Capita_Waste_KG:Main_SourcesIndustrial_Consumer:Coastal_Waste_RiskMedium NA NA NA NA
Per_Capita_Waste_KG:Main_SourcesIndustrial_Packaging:Coastal_Waste_RiskMedium NA NA NA NA
Per_Capita_Waste_KG:Main_SourcesPackaging_Consumer:Coastal_Waste_RiskMedium NA NA NA NA
Per_Capita_Waste_KG:Main_SourcesPackaging_Electronics:Coastal_Waste_RiskMedium NA NA NA NA
Per_Capita_Waste_KG:Main_SourcesPackaging_Industrial:Coastal_Waste_RiskMedium NA NA NA NA
Per_Capita_Waste_KG:Main_SourcesConsumer_Goods:Coastal_Waste_RiskVery_High NA NA NA NA
Per_Capita_Waste_KG:Main_SourcesConsumer_Packaging:Coastal_Waste_RiskVery_High NA NA NA NA
Per_Capita_Waste_KG:Main_SourcesElectronics_Packaging:Coastal_Waste_RiskVery_High NA NA NA NA
Per_Capita_Waste_KG:Main_SourcesFood_Packaging:Coastal_Waste_RiskVery_High NA NA NA NA
Per_Capita_Waste_KG:Main_SourcesIndustrial_Consumer:Coastal_Waste_RiskVery_High NA NA NA NA
Per_Capita_Waste_KG:Main_SourcesIndustrial_Packaging:Coastal_Waste_RiskVery_High NA NA NA NA
Per_Capita_Waste_KG:Main_SourcesPackaging_Consumer:Coastal_Waste_RiskVery_High NA NA NA NA
Per_Capita_Waste_KG:Main_SourcesPackaging_Electronics:Coastal_Waste_RiskVery_High NA NA NA NA
Per_Capita_Waste_KG:Main_SourcesPackaging_Industrial:Coastal_Waste_RiskVery_High NA NA NA NA
Recycling_Rate:Main_SourcesConsumer_Goods:Coastal_Waste_RiskLow NA NA NA NA
Recycling_Rate:Main_SourcesConsumer_Packaging:Coastal_Waste_RiskLow NA NA NA NA
Recycling_Rate:Main_SourcesElectronics_Packaging:Coastal_Waste_RiskLow NA NA NA NA
Recycling_Rate:Main_SourcesFood_Packaging:Coastal_Waste_RiskLow NA NA NA NA
Recycling_Rate:Main_SourcesIndustrial_Consumer:Coastal_Waste_RiskLow NA NA NA NA
Recycling_Rate:Main_SourcesIndustrial_Packaging:Coastal_Waste_RiskLow NA NA NA NA
Recycling_Rate:Main_SourcesPackaging_Consumer:Coastal_Waste_RiskLow NA NA NA NA
Recycling_Rate:Main_SourcesPackaging_Electronics:Coastal_Waste_RiskLow NA NA NA NA
Recycling_Rate:Main_SourcesPackaging_Industrial:Coastal_Waste_RiskLow NA NA NA NA
Recycling_Rate:Main_SourcesConsumer_Goods:Coastal_Waste_RiskMedium NA NA NA NA
Recycling_Rate:Main_SourcesConsumer_Packaging:Coastal_Waste_RiskMedium NA NA NA NA
Recycling_Rate:Main_SourcesElectronics_Packaging:Coastal_Waste_RiskMedium NA NA NA NA
Recycling_Rate:Main_SourcesFood_Packaging:Coastal_Waste_RiskMedium NA NA NA NA
Recycling_Rate:Main_SourcesIndustrial_Consumer:Coastal_Waste_RiskMedium NA NA NA NA
Recycling_Rate:Main_SourcesIndustrial_Packaging:Coastal_Waste_RiskMedium NA NA NA NA
Recycling_Rate:Main_SourcesPackaging_Consumer:Coastal_Waste_RiskMedium NA NA NA NA
Recycling_Rate:Main_SourcesPackaging_Electronics:Coastal_Waste_RiskMedium NA NA NA NA
Recycling_Rate:Main_SourcesPackaging_Industrial:Coastal_Waste_RiskMedium NA NA NA NA
Recycling_Rate:Main_SourcesConsumer_Goods:Coastal_Waste_RiskVery_High NA NA NA NA
Recycling_Rate:Main_SourcesConsumer_Packaging:Coastal_Waste_RiskVery_High NA NA NA NA
Recycling_Rate:Main_SourcesElectronics_Packaging:Coastal_Waste_RiskVery_High NA NA NA NA
Recycling_Rate:Main_SourcesFood_Packaging:Coastal_Waste_RiskVery_High NA NA NA NA
Recycling_Rate:Main_SourcesIndustrial_Consumer:Coastal_Waste_RiskVery_High NA NA NA NA
Recycling_Rate:Main_SourcesIndustrial_Packaging:Coastal_Waste_RiskVery_High NA NA NA NA
Recycling_Rate:Main_SourcesPackaging_Consumer:Coastal_Waste_RiskVery_High NA NA NA NA
Recycling_Rate:Main_SourcesPackaging_Electronics:Coastal_Waste_RiskVery_High NA NA NA NA
Recycling_Rate:Main_SourcesPackaging_Industrial:Coastal_Waste_RiskVery_High NA NA NA NA
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesConsumer_Goods:Coastal_Waste_RiskLow NA NA NA NA
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesConsumer_Packaging:Coastal_Waste_RiskLow NA NA NA NA
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesElectronics_Packaging:Coastal_Waste_RiskLow NA NA NA NA
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesFood_Packaging:Coastal_Waste_RiskLow NA NA NA NA
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesIndustrial_Consumer:Coastal_Waste_RiskLow NA NA NA NA
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesIndustrial_Packaging:Coastal_Waste_RiskLow NA NA NA NA
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesPackaging_Consumer:Coastal_Waste_RiskLow NA NA NA NA
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesPackaging_Electronics:Coastal_Waste_RiskLow NA NA NA NA
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesPackaging_Industrial:Coastal_Waste_RiskLow NA NA NA NA
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesConsumer_Goods:Coastal_Waste_RiskMedium NA NA NA NA
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesConsumer_Packaging:Coastal_Waste_RiskMedium NA NA NA NA
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesElectronics_Packaging:Coastal_Waste_RiskMedium NA NA NA NA
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesFood_Packaging:Coastal_Waste_RiskMedium NA NA NA NA
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesIndustrial_Consumer:Coastal_Waste_RiskMedium NA NA NA NA
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesIndustrial_Packaging:Coastal_Waste_RiskMedium NA NA NA NA
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesPackaging_Consumer:Coastal_Waste_RiskMedium NA NA NA NA
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesPackaging_Electronics:Coastal_Waste_RiskMedium NA NA NA NA
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesPackaging_Industrial:Coastal_Waste_RiskMedium NA NA NA NA
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesConsumer_Goods:Coastal_Waste_RiskVery_High NA NA NA NA
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesConsumer_Packaging:Coastal_Waste_RiskVery_High NA NA NA NA
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesElectronics_Packaging:Coastal_Waste_RiskVery_High NA NA NA NA
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesFood_Packaging:Coastal_Waste_RiskVery_High NA NA NA NA
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesIndustrial_Consumer:Coastal_Waste_RiskVery_High NA NA NA NA
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesIndustrial_Packaging:Coastal_Waste_RiskVery_High NA NA NA NA
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesPackaging_Consumer:Coastal_Waste_RiskVery_High NA NA NA NA
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesPackaging_Electronics:Coastal_Waste_RiskVery_High NA NA NA NA
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesPackaging_Industrial:Coastal_Waste_RiskVery_High NA NA NA NA
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.7377 on 127 degrees of freedom
Multiple R-squared: 0.9883, Adjusted R-squared: 0.9849
F-statistic: 290 on 37 and 127 DF, p-value: < 2.2e-16Anova(mod = interact, type = "II")Note: model has aliased coefficients
sums of squares computed by model comparisonAnova Table (Type II tests)
Response: Total_Plastic_Waste_MT
Sum Sq Df F value Pr(>F)
Per_Capita_Waste_KG 3.37 1 6.1868 0.0141670 *
Recycling_Rate 2.89 1 5.3154 0.0227592 *
Main_Sources 1922.81 8 441.7170 < 2.2e-16 ***
Coastal_Waste_Risk 63.93 3 39.1646 < 2.2e-16 ***
Per_Capita_Waste_KG:Recycling_Rate 1.44 1 2.6538 0.1057780
Per_Capita_Waste_KG:Main_Sources 8.33 2 7.6562 0.0007255 ***
Recycling_Rate:Main_Sources 0.04 2 0.0354 0.9652620
Per_Capita_Waste_KG:Coastal_Waste_Risk 1.78 2 1.6390 0.1982498
Recycling_Rate:Coastal_Waste_Risk 1.83 2 1.6858 0.1894195
Main_Sources:Coastal_Waste_Risk 624.20 2 573.5783 < 2.2e-16 ***
Per_Capita_Waste_KG:Recycling_Rate:Main_Sources 0.17 2 0.1597 0.8525778
Per_Capita_Waste_KG:Recycling_Rate:Coastal_Waste_Risk 1.29 2 1.1825 0.3098768
Per_Capita_Waste_KG:Main_Sources:Coastal_Waste_Risk 0
Recycling_Rate:Main_Sources:Coastal_Waste_Risk 0
Per_Capita_Waste_KG:Recycling_Rate:Main_Sources:Coastal_Waste_Risk 0
Residuals 69.10 127
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1par(mfrow = c(2,2))
plot(interact)Aviso: not plotting observations with leverage one:
1, 2, 3, 4, 5, 7, 8, 9, 10, 12, 13, 15, 17, 19, 20, 26, 33, 41, 45, 49, 54, 150
fig <- plot_ly(x = plastic$Recycling_Rate,
y = plastic$Per_Capita_Waste_KG,
z = plastic$Total_Plastic_Waste_MT,
color = plastic$Main_Sources,
type = "scatter3d", mode = "markers")
figAviso: n too large, allowed maximum for palette Set2 is 8
Returning the palette you asked for with that many colors
Aviso: n too large, allowed maximum for palette Set2 is 8
Returning the palette you asked for with that many colors
Aviso: n too large, allowed maximum for palette Set2 is 8
Returning the palette you asked for with that many colors
Aviso: n too large, allowed maximum for palette Set2 is 8
Returning the palette you asked for with that many colorslibrary(ggeffects)
# Obtener efectos marginales del modelo ajustado
efectos_marginales <- ggpredict(interact, terms = c("Main_Sources","Recycling_Rate"))Aviso: prediction from rank-deficient fit; attr(*, "non-estim") has doubtful cases# Graficar los efectos marginales
plot(efectos_marginales)
\[ \text{Rechazamos la hipotesis nula : } H_0 \\ \text{Al observar que existe una relacion significante entre las variables Recycling_Rate y Main_Sources} \]
library(ggcorrplot)
reduced_data <- subset(plastic, select = c(-Main_Sources, -Country, -Coastal_Waste_Risk))
corr_matrix = round(cor(reduced_data), 2)
ggcorrplot(corr_matrix, hc.order = TRUE, type = "lower",
lab = TRUE)
library(ggeffects)
ggeffect(interact)$Per_Capita_Waste_KG
# Predicted values of Total_Plastic_Waste_MTCan't export table to
text
, data frame is empty.
Not all rows are shown in the output. Use `print(..., n = Inf)` to show all rows.
$Recycling_Rate
# Predicted values of Total_Plastic_Waste_MTCan't export table to
text
, data frame is empty.
Not all rows are shown in the output. Use `print(..., n = Inf)` to show all rows.
$Main_Sources
# Predicted values of Total_Plastic_Waste_MTCan't export table to
text
, data frame is empty.
Not all rows are shown in the output. Use `print(..., n = Inf)` to show all rows.
$Coastal_Waste_Risk
# Predicted values of Total_Plastic_Waste_MTCan't export table to
text
, data frame is empty.
Not all rows are shown in the output. Use `print(..., n = Inf)` to show all rows.
attr(,"class")
[1] "ggalleffects" "list"
attr(,"model.name")
[1] "interact"plot(plastic, pch = 16)
abline(interact)Aviso: only using the first two of 160 regression coefficients
library(agricolae)
tukey <- aov(Total_Plastic_Waste_MT ~ Per_Capita_Waste_KG *
Recycling_Rate *
Main_Sources *
Coastal_Waste_Risk,
data = plastic)
tukeysig <- TukeyHSD(tukey,"Coastal_Waste_Risk")Aviso: non-factors ignored: Per_Capita_Waste_KGAviso: non-factors ignored: Recycling_RateAviso: non-factors ignored: Per_Capita_Waste_KG, Recycling_RateAviso: non-factors ignored: Per_Capita_Waste_KG, Main_SourcesAviso: non-factors ignored: Recycling_Rate, Main_SourcesAviso: non-factors ignored: Per_Capita_Waste_KG, Coastal_Waste_RiskAviso: non-factors ignored: Recycling_Rate, Coastal_Waste_RiskAviso: non-factors ignored: Per_Capita_Waste_KG, Recycling_Rate, Main_SourcesAviso: non-factors ignored: Per_Capita_Waste_KG, Recycling_Rate, Coastal_Waste_Riskplot(tukeysig)
tukeysig <- TukeyHSD(tukey,"Main_Sources")Aviso: non-factors ignored: Per_Capita_Waste_KGAviso: non-factors ignored: Recycling_RateAviso: non-factors ignored: Per_Capita_Waste_KG, Recycling_RateAviso: non-factors ignored: Per_Capita_Waste_KG, Main_SourcesAviso: non-factors ignored: Recycling_Rate, Main_SourcesAviso: non-factors ignored: Per_Capita_Waste_KG, Coastal_Waste_RiskAviso: non-factors ignored: Recycling_Rate, Coastal_Waste_RiskAviso: non-factors ignored: Per_Capita_Waste_KG, Recycling_Rate, Main_SourcesAviso: non-factors ignored: Per_Capita_Waste_KG, Recycling_Rate, Coastal_Waste_Riskplot(tukeysig)
LS0tCnRpdGxlOiAiUGxhc3RpYyBXYXN0ZSAyMDIzIGFuYWxpc2lzIgpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sKLS0tCgpgYGB7cn0KcGxhc3RpYyA8LSByZWFkLmNzdigiUGxhc3RpYyBXYXN0ZSBBcm91bmQgdGhlIFdvcmxkLmNzdiIsIHN0cmluZ3NBc0ZhY3RvcnMgPSBUUlVFKQpgYGAKJCQKXHRleHR7TGEgaGlww7N0ZXNpcyBudWxhIGEgcHJvYmFyIGVzOn0gXFwKSF8wOiBcdGV4dHtObyBleGlzdGUgdW5hIHJlbGFjacOzbiBzaWduaWZpY2F0aXZhIGVudHJlIGxhIHByb2R1Y2Npw7NuIGRlIHJlc2lkdW9zIHBsw6FzdGljb3MgYSBuaXZlbCBuYWNpb25hbCwgbGEgdGFzYSBkZSByZWNpY2xhamUsfSBcXCAgClx0ZXh0e2xhIHByb2R1Y2Npb24gZGUgcmVzaWR1b3MgcGVyLWNhcGl0YSwgRWwgdGlwbyBwcmluY2lwYWwgZGUgcmVzdWRpbyBwb3IgcGFpcyB5IGVsIHJpZXNnbyBkZSByZXNpZHVvcyBjb3N0ZXJvcy59IFxcCgokJAoKYGBge3J9CmxpYnJhcnkoZ2dwbG90MikKbGlicmFyeShwbG90bHkpCmxpYnJhcnkoY2FyKQppbnRlcmFjdCA8LSBsbShUb3RhbF9QbGFzdGljX1dhc3RlX01UIH4gUGVyX0NhcGl0YV9XYXN0ZV9LRyAqCiAgICAgICAgICAgICAgICAgICAgICAgUmVjeWNsaW5nX1JhdGUgKgogICAgICAgICAgICAgICAgICAgICAgIE1haW5fU291cmNlcyAqIAogICAgICAgICAgICAgICAgICAgICAgIENvYXN0YWxfV2FzdGVfUmlzaywgCiAgICAgICAgICAgICAgICAgICAgICAgZGF0YSA9IHBsYXN0aWMpCnN1bW1hcnkoaW50ZXJhY3QpCmBgYAoKYGBge3IsIGZpZy53aWR0aD0xMCwgZmlnLmhlaWdodD02fQpwYXIobWZyb3cgPSBjKDIsMikpCnBsb3QoaW50ZXJhY3QpCmBgYAoKCmBgYHtyfQpmaWcgPC0gcGxvdF9seSh4ID0gcGxhc3RpYyRSZWN5Y2xpbmdfUmF0ZSwgCiAgICAgICAgICAgICAgIHkgPSBwbGFzdGljJFBlcl9DYXBpdGFfV2FzdGVfS0csIAogICAgICAgICAgICAgICB6ID0gcGxhc3RpYyRUb3RhbF9QbGFzdGljX1dhc3RlX01ULCAKICAgICAgICAgICAgICAgY29sb3IgPSBwbGFzdGljJE1haW5fU291cmNlcywgCiAgICAgICAgICAgICAgIHR5cGUgPSAic2NhdHRlcjNkIiwgbW9kZSA9ICJtYXJrZXJzIikgCmZpZwpgYGAKYGBge3IsIGZpZy53aWR0aD0xNCwgZmlnLmhlaWdodD00fQpsaWJyYXJ5KGdnZWZmZWN0cykKCiMgT2J0ZW5lciBlZmVjdG9zIG1hcmdpbmFsZXMgZGVsIG1vZGVsbyBhanVzdGFkbwplZmVjdG9zX21hcmdpbmFsZXMgPC0gZ2dwcmVkaWN0KGludGVyYWN0LCB0ZXJtcyA9IGMoIk1haW5fU291cmNlcyIsIlJlY3ljbGluZ19SYXRlIikpCgojIEdyYWZpY2FyIGxvcyBlZmVjdG9zIG1hcmdpbmFsZXMKcGxvdChlZmVjdG9zX21hcmdpbmFsZXMpCmBgYAokJApcdGV4dHtSZWNoYXphbW9zIGxhIGhpcG90ZXNpcyBudWxhIDogfSBIXzAgXFwKXHRleHR7QWwgb2JzZXJ2YXIgcXVlIGV4aXN0ZSB1bmEgcmVsYWNpb24gc2lnbmlmaWNhbnRlIGVudHJlIGxhcyB2YXJpYWJsZXMgUmVjeWNsaW5nX1JhdGUgeSBNYWluX1NvdXJjZXN9CiQkCmBgYHtyfQpsaWJyYXJ5KGdnY29ycnBsb3QpCnJlZHVjZWRfZGF0YSA8LSBzdWJzZXQocGxhc3RpYywgc2VsZWN0ID0gYygtTWFpbl9Tb3VyY2VzLCAtQ291bnRyeSwgLUNvYXN0YWxfV2FzdGVfUmlzaykpCmNvcnJfbWF0cml4ID0gcm91bmQoY29yKHJlZHVjZWRfZGF0YSksIDIpCmdnY29ycnBsb3QoY29ycl9tYXRyaXgsIGhjLm9yZGVyID0gVFJVRSwgdHlwZSA9ICJsb3dlciIsCiAgICAgICAgICBsYWIgPSBUUlVFKQpgYGAKYGBge3J9CmxpYnJhcnkoZ2dlZmZlY3RzKQpnZ2VmZmVjdChpbnRlcmFjdCkKYGBgCgoKYGBge3J9CnBsb3QocGxhc3RpYywgcGNoID0gMTYpCmFibGluZShpbnRlcmFjdCkKYGBgCgoKYGBge3J9CmxpYnJhcnkoYWdyaWNvbGFlKQp0dWtleSA8LSBhb3YoVG90YWxfUGxhc3RpY19XYXN0ZV9NVCB+IFBlcl9DYXBpdGFfV2FzdGVfS0cgKgogICAgICAgICAgICAgICAgICAgICAgIFJlY3ljbGluZ19SYXRlICoKICAgICAgICAgICAgICAgICAgICAgICBNYWluX1NvdXJjZXMgKiAKICAgICAgICAgICAgICAgICAgICAgICBDb2FzdGFsX1dhc3RlX1Jpc2ssIAogICAgICAgICAgICAgICAgICAgICAgIGRhdGEgPSBwbGFzdGljKQp0dWtleXNpZyA8LSBUdWtleUhTRCh0dWtleSwiQ29hc3RhbF9XYXN0ZV9SaXNrIikKcGxvdCh0dWtleXNpZykKYGBgCmBgYHtyLCBmaWcud2lkdGg9MTIsIGZpZy5oZWlnaHQ9OH0KdHVrZXlzaWcgPC0gVHVrZXlIU0QodHVrZXksIk1haW5fU291cmNlcyIpCnBsb3QodHVrZXlzaWcpCmBgYA==